﻿Imports System.Data
Imports System.Data.SqlClient
Imports System.Windows.Forms

Public Class Nueva_Localidad

    Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click


        If txtcodloc.TextLength = 0 Then
            MsgBox("Ingrese Código de Localidad.", MsgBoxStyle.Exclamation)
            txtcodloc.Focus()
            Exit Sub
        End If

        If Not IsNumeric(txtcodloc.Text) Then
            MsgBox("El código de Localidad debe ser numérico", MsgBoxStyle.DefaultButton1, Title:="ERROR")
            txtcodloc.Focus()
            txtcodloc.Text = ""
            Exit Sub
        End If

        If txtnombre.TextLength = 0 Then
            MsgBox("Ingrese Nombre de Localidad.", MsgBoxStyle.Exclamation)
            txtnombre.Focus()
            txtnombre.Text = ""
            Exit Sub
        End If

        If IsNumeric(txtnombre.Text) Then
            MsgBox("Ingrese Nombre de Localidad.", MsgBoxStyle.Exclamation)
            txtnombre.Focus()
            txtnombre.Text = ""
            Exit Sub
        End If


        If txtcodpostal.TextLength = 0 Then
            MsgBox("Ingrese Código Postal de la Localidad.", MsgBoxStyle.Exclamation)
            txtcodpostal.Focus()
            Exit Sub
        End If

        If Not IsNumeric(txtcodpostal.Text) Then
            MsgBox("El Código Postal debe ser numérico", MsgBoxStyle.DefaultButton1, Title:="ERROR")
            txtcodpostal.Focus()
            txtcodpostal.Text = ""
            Exit Sub
        End If


        If txtcoddpto.TextLength = 0 Then
            MsgBox("Ingrese Código de Departamento.", MsgBoxStyle.Exclamation)
            txtcoddpto.Focus()
            Exit Sub
        End If

        If Not IsNumeric(txtcoddpto.Text) Then
            MsgBox("El Código de Departamento debe ser numérico", MsgBoxStyle.DefaultButton1, Title:="ERROR")
            txtcoddpto.Focus()
            txtcoddpto.Text = ""
            Exit Sub
        End If


        Dim oLocalidadNegocios As New Negocios.Nlocalidad
        Dim oLocalidad As New Entidades.Elocalidad

        oLocalidad.codloc = UCase(txtcodloc.Text)
        oLocalidad.nombreloc = UCase(txtnombre.Text)
        oLocalidad.codigopostal = UCase(txtcodpostal.Text)
        oLocalidad.dpto = UCase(txtcoddpto.Text)


        Try
            Dim resp As Integer
            resp = MsgBox("Desea guardar?", MsgBoxStyle.YesNo)
            If resp = 6 Then
                oLocalidadNegocios.guardarlocalidad(oLocalidad)
                MsgBox("Los datos se guardaron correctamente.", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If

        Catch ex As Exception
            MsgBox("Los datos no han sido guardados." + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try


        txtcodloc.Text = ""
        txtnombre.Text = ""
        txtcodpostal.Text = ""
        txtcoddpto.Text = ""
        txtcodloc.Focus()



    End Sub

    Private Sub btnmodificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmodificar.Click


        If txtcodloc.TextLength = 0 Then
            MsgBox("Ingrese Código de Localidad.", MsgBoxStyle.Exclamation)
            txtcodloc.Focus()
            Exit Sub
        End If

        If Not IsNumeric(txtcodloc.Text) Then
            MsgBox("El código de Localidad debe ser numérico", MsgBoxStyle.DefaultButton1, Title:="ERROR")
            txtcodloc.Focus()
            txtcodloc.Text = ""
            Exit Sub
        End If

        If txtnombre.TextLength = 0 Then
            MsgBox("Ingrese Nombre de Localidad.", MsgBoxStyle.Exclamation)
            txtnombre.Focus()
            txtnombre.Text = ""
            Exit Sub
        End If

        If IsNumeric(txtnombre.Text) Then
            MsgBox("Ingrese Nombre de Localidad.", MsgBoxStyle.Exclamation)
            txtnombre.Focus()
            txtnombre.Text = ""
            Exit Sub
        End If


        If txtcodpostal.TextLength = 0 Then
            MsgBox("Ingrese Código Postal de la Localidad.", MsgBoxStyle.Exclamation)
            txtcodpostal.Focus()
            Exit Sub
        End If

        If Not IsNumeric(txtcodpostal.Text) Then
            MsgBox("El Código Postal debe ser numérico", MsgBoxStyle.DefaultButton1, Title:="ERROR")
            txtcodpostal.Focus()
            txtcodpostal.Text = ""
            Exit Sub
        End If


        If txtcoddpto.TextLength = 0 Then
            MsgBox("Ingrese Código de Departamento.", MsgBoxStyle.Exclamation)
            txtcoddpto.Focus()
            Exit Sub
        End If

        If Not IsNumeric(txtcoddpto.Text) Then
            MsgBox("El Código de Departamento debe ser numérico", MsgBoxStyle.DefaultButton1, Title:="ERROR")
            txtcoddpto.Focus()
            txtcoddpto.Text = ""
            Exit Sub
        End If



        Dim oLocalidadNegocios As New Negocios.Nlocalidad
        Dim oLocalidad As New Entidades.Elocalidad

        oLocalidad.codloc = UCase(txtcodloc.Text)
        oLocalidad.nombreloc = UCase(txtnombre.Text)
        oLocalidad.codigopostal = UCase(txtcodpostal.Text)
        oLocalidad.dpto = UCase(txtcoddpto.Text)


        Try
            Dim resp As Integer
            resp = MsgBox("¿Desea modificar los datos?", MsgBoxStyle.YesNo)
            If resp = 6 Then

                oLocalidadNegocios.modificarlocalidad(oLocalidad)

                MsgBox("Los datos se modificaron correctamente.", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Los datos no han sido modificados." + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try

    End Sub

    Private Sub Nueva_Localidad_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        txtcodloc.Focus()
    End Sub


    Private Sub txtcodloc_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcodloc.KeyPress

        If e.KeyChar = ChrW(Keys.Enter) Then
            txtnombre.Focus()
        Else
            If txtcodloc.TextLength = 0 Then
                txtcodloc.Focus()
            End If
        End If

    End Sub


    Private Sub txtnombre_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            txtcodpostal.Focus()
        End If
    End Sub



    Private Sub txtcodpostal_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcodpostal.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            txtcoddpto.Focus()
        End If
    End Sub


    Private Sub txtcoddpto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcoddpto.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            btnguardar.Focus()
        End If
    End Sub
End Class